Sub rechquinc()
Dim x As Range
Dim NLig As Long
Dim ShtS As Worksheet
' Définir le nom de la feuille source
Set ShtS = Sheets("RECHERCHE")
' Avec la feuille de destination
With Sheets("sdpu")
Set x = .Range("A3:A22").Find("", .Range("A22"), xlValues, , 1, 1, 0)
If Not x Is Nothing Then
NLig = x.Row
Else
Exit Sub
End If
' Inscrire les données dans la feuille de destination
.Range("A" & NLig) = ShtS.Range("E2")
.Range("B" & NLig) = ShtS.Range("E3")
.Range("D" & NLig) = ShtS.Range("E4")
.Range("G" & NLig) = ShtS.Range("E5")
.Range("E" & NLig) = ShtS.Range("E6")
' Etc ....
End With
' Effacer les variables objet
Set ShtS = Nothing
End Sub