Discussion :

[fritou87]

Bonjour,

j'ai essayé de me servir de la méthode de cette discussion, mais je n'y arrive pas.
Voici ma méthode, mais qui chie à cause du range de l'autofill, et je ne comprends pas ce qui cloche.

Voici mon code:
en pj le fichier

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
Sub Cellules_Vides()

Dim Ws As Worksheet
 
 'dernière ligne rempli de la colonne A
Dim u As String
u = Range("A65536").End(xlUp).Row

 'dernière ligne non rempli de la colonne O
Dim i As String
i = Range("O65536").End(xlUp).Row + 1

'duplication des cellules
Range("M" & i & ":P" & u).Select
Selection.AutoFill Destination:=Range("M" & i & ":P" & u), Type:=xlFillDefault
Range("M" & i & ":P" & u).Select

End Sub