Bonjour a tous
je suis nouveau sur le forum
je débute avec VBA , voilà mon soucis ^^

j'ai créé un Bouton "Dupliquer" dans mon Tableau

et je veux Copier une Ligne que j'ai sélectionné qui comportent 12 cellules (cette premiere partie de mon code fonctionne)

maintenant je veux que mes cellules 3,4 et 5 dans la ligne qui a été copiée soient vide
j'ai rajouté : Cells(nvlLig, 3) = ""
mais mon erreur vient a partir d'ici


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 Sub Dupliquer()
 
' dupliquer une ligne sélectionnée
Dim nvlLig As Long
Dim NbLigneSelec, NbLigne As Integer
 
NbLigne = Range("A" & Rows.Count).End(xlUp).Row     'n° de la dernière ligne non vide de la colonne A
NbLigneSelec = Selection.Rows.Count
 
    If NbLigneSelec = 1 Then                'détecte la ligne sélectionnée
        Selection.EntireRow.Copy            'copie la ligne selectionné
 
        Range("A" & NbLigne + 1).Select     'selectionne la ligne apres la derniere ligne du tableau
        ActiveSheet.Paste                   'colle la selection
 
        Application.CutCopyMode = False
    End If
 
    'Complète les cellules
 
    Cells(nvlLig, 3) = ""
    Cells(nvlLig, 4) = ""
    Cells(nvlLig, 5) = ""
 
End Sub
Merci d'avance pour votre Aide =)