Find String And Copy / Paste Given Cells

There are two problems to solve :

My Excel workbook is composed of 2 sheets. The first one is a Dashboard (Sheet1) and the second one (Sheet13) is where the data is.

I would like to press a button on the first one, enter the text to be found into an Inputbox and then copy-paste cells from the second sheet (containing the data) into the first one.

The data is structured in rows, from A to V columns.

I would like, according the row where is located the found cell, copy given given cells from Sheet13 to Sheet1.

Right now, I have a macro performing the search like desired and selecting the found cell :

Code:
Private Sub CommandButton1_Click() Dim FindString As String
Dim Rng As Range
FindString = InputBox("Entrer le contrat de support - rechercher (DSI....) ")
If Trim(FindString) "" Then
With Sheet13.Range("V:V")
Set Rng = .Find(What:="*" & FindString & "*", _

[Code] .......

I would like to copy cells located in the columns A, B, D, E, F, K, S, (T:U) from the row where the searched string has been found in Sheet13. It has to be copied on Sheet1, on two rows : (N29:Q29) & (N30:Q30).

When a new research is done, the previously copied cells should be cleared out.

2. The second point is about duplicating a button with an associated macro. The macro is running like I want but I have to insert 299 more buttons, with the updated formula according to the row where it is located.

However, one part of the macro has to stay the same because all of these 300 buttons increment a single counter located on Sheet1.

Code:
Sub Button2600_Click() If MsgBox("Etes-vous sûr de vouloir ajouter 1 année de support pour" & vbNewLine & Range("E7") & " " & "(" & Range("F7") & ")" & " ?", vbYesNo + vbQuestion, "Modification du Contrat de Support") = vbYes Then
Sheet13.[A7] = DateAdd("yyyy", 1, [A7])
MsgBox "Contrat étendu d'une année."
Dim x As Integer
x = Sheet1.[R11].Value
Sheet1.[R11].Value = x + 1
End If
End Sub

You can get the excel workbook at the following link : [URL] ....