Bonsoir,
J'ai essayé comme ca :
Option Explicit
Sub Macro1()
Dim nblgn1 As Byte, nblgn2 As Byte, plage1 As Range, plage2 As Range, cel1 As Range, cel2 As Range
Dim nbrLgn As Integer, i As Integer
nblgn1 = Application.CountA([ListeItems2].Columns(1)) 'nombre de lignes non...