Utilisation de la dernière ligne pour mise en forme

Bonjour,

J'ai un soucis pour utiliser le numéro de la dernière ligne non vide.

J'arrive à récupérer la dernière ligne de mon tableur à la suite d'un copier coller d'un tableau que je veux multiplier environ 56 fois .

avec ce code

Dim y, a As Integer
   For y = 1 To 56
   a = 1 + (9 * y)

    Sheets("Base").Select
    Range("A1:I9").Select
    Selection.Copy
    Sheets("Planning").Select
    Range("A" & a).Select
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste

    Next y

    Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row

donc j'aimerai utiliser DernLigne pour appliquer la mise en forme de mes ligne 1 à 9 sur les lignes 10 à dernLigne

J'ai essayé cela mais cela ne fonctionne pas

Rows("1:9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("1" & DernLigne).Select

    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

L'erreur se passe à 'Range ("1" & DernLigne).Select

Avez vous une solution ?

Bien cordialement,

Bonjour,

Si tu veux sélectionner la dernière ligne occupée de la colonne A, essaie avec :

 Range("A" & DernLigne).Select

Bonjour mika51, JoyeuxNoel, le forum,

appliquer la mise en forme de mes ligne 1 à 9 sur les lignes 10 à dernLigne

L'erreur se passe à 'Range ("1" & DernLigne).Select

Essaies ainsi:

Range ("10:" & DernLigne).Select

Sub test()
 Dim DernLigne As Long
     DernLigne = Range("A" & Rows.Count).End(xlUp).Row

   Rows("1:9").Copy
    Range("10:" & DernLigne).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Cordialement,

J'aimerai sélectionner les lignes de 10 à la dernière ligne

Pas juste la dernière ligne