Sub b()
Dim i As Long
Dim strPath As String
Dim F As Worksheet: Set F = Sheets("Base de données")
'ici mettre le chemin du dossier contenant les gif
strPath = " J:\PROG. ISO MODIF\01-GAMME\313\"
For i = 2 To Cells(Rows.Count, 6).End(xlUp).Row
If Dir(strPath & Cells(i, 6).Text & ".gif") <>...