Bonsoir
y ' a pas mal de discussion pareilles dans ce site :aie:
dont :
voila début de réponse

Option Explicit
Sub CollecteInfo()
Dim i As Long
Dim j As Integer
Dim w As Worksheet