Pas de cellules correspondante (XcellsTypeBlanks)

Bonjour,
N'ayant pas trouvé les réponse à mon problème sur le forum.
Je crée donc un nouveau sujet dans l'espoir qu'une âme charitable veuille bien m'aider.
Je débute dans ce monde merveilleux qu'est le langage VBA.
Depuis un petit temps je bloque complètement sur une erreur que m'affiche Excel.

Ce que je veux faire est relativement simple, j'aimerais copier une ligne de données de la Feuille 1 (de la cellule B3 à E3 par exemple) et les collés dans la feuilles 2, à savoir que dans cette feuille 2, il y a déjà d'autres données, et j'aimerais collé la ligne de la feuille 1 copié en dessous de ceux ci sans écraser les autres données déjà présentes, et faire ça ainsi de suite.
Ce qui me rend fou, c'est que ce code fonctionne avec d'autres feuille du même classeur Excel.
Je copie/colle le code déjà présent et fonctionnelle du même classeur excel en changeant les feuilles concernés, les plage sélectionnes, le nom de la macro, etc..
Et la il me met cette erreur comme si il ne trouvait pas les cellules vide alors qu'elle le sont :-/ .

Voici le code que j'utilise

Sub Ajout_ligne()
'
' Ajout_Ligne Macro
'
    Sheets("Feuil1").Select
    Range("B3:E3").Select
    Selection.Copy
    Sheets("Feuil2").Select
        Range("A:A").SpecialCells(xlCellTypeBlanks).Cells(1).Offset(0, 0).Select
        Selection.PasteSpecial Paste:=xlPasteValues, SkipBlanks _
        :=True
     Sheets("Feuil1").Select

End Sub

Il me souligne cette partie comme posant problème.

 Range("A:A").SpecialCells(xlCellTypeBlanks).Cells(1).Offset(0, 0).Select

Est ce que quelqu'un peut m'aider à résoudre ce problème s'il vous plait ?
Merci beaucoup :-)

Bonjour,

Ce code pour faire ce que vous demandez:

Sub Recopie_ligne()
    'déclaration des variables
    Dim f1 As Worksheet, f2 As Worksheet
    Dim DerLig_f2 As Long
    Application.ScreenUpdating = False
    Set f1 = Sheets("Feuil1")
    Set f2 = Sheets("Feuil2")
    DerLig_f2 = f2.Range("A" & Rows.Count).End(xlUp).Row 'dernière ligne pleine de la feuille 2
    f1.Range("B3:E3").Copy f2.Cells(DerLig_f2 + 1, "A")
    Set f1 = Nothing 'libération de la mémoire
    Set f2 = Nothing
End Sub

Cdlt

Bonjour, dans le même genre que Arturo83

Plage de la feuille2 = plage de la feuille1 -->

Dim derligne as long
derligne=Worksheets("Feuil2").Range("A65536").End(xlUp).Row + 1
Worksheets("Feuil2").Range("A" & derligne & ":D" & derligne).value=Worksheets("Feuil1").Range("B3:E3").value

Merci à vous 2 !!!
ça fonctionne effectivement :-)