XL 2010 incompatibilité du type vba

[loul03]

Bonjour,

j'ai un code qui actuellement est comme ça mais il beug et me met incompatibilité de type.

est ce que qqn peut m'aider s'il vous plait?

Sub enregistrement_2_periode()
Dim Ligne As Long
Ligne = Application.Match(Range("nom"), Sheets("Recap Cp").Range("a3: A45 "), 0) + 2
With Sheets("Recap CP")
.Cells(Ligne, "C") = Sheets("Demande CP").[e21]
.Cells(Ligne, "D") = Sheets("Demande CP").[g21]
.Cells(Ligne, "E") = Sheets("Demande CP").[e22]
.Cells(Ligne, "F") = Sheets("Demande CP").[g22]
.Cells(Ligne, "G") = Sheets("Demande CP").[e23]
.Cells(Ligne, "H") = Sheets("Demande CP").[g23]
End With
Dim Ligne1 As Long
Ligne1 = Application.Match(Range("nom_val"), Sheets("Recap Cp").Range("o3: o45 "), 0) + 2
With Sheets("Recap CP")
.Cells(Ligne, "i") = Sheets("Demande CP").[e41]
.Cells(Ligne, "j") = Sheets("Demande CP").[g41]
.Cells(Ligne, "k") = Sheets("Demande CP").[e42]
.Cells(Ligne, "l") = Sheets("Demande CP").[g42]
.Cells(Ligne, "m") = Sheets("Demande CP").[e43]
.Cells(Ligne, "n") = Sheets("Demande CP").[g43]
End With
End Sub

ça beug sur la ligne en rouge.

par avance merci

 

[roro69]

Bonsoir a essayer car En toute probabilité, aucune correspondance n'est trouvée
If Range("nom_val").Value <> "" Then Ligne1 = Application.Match(Range("nom_val"), Sheets("Recap Cp").Range("o3: o45 "), 0) + 2

Bonne soirée A++
PS:A voir ta variable Ligne1 n'est pas utilisé ensuite???