'si tes cellules Chemin\Fichier sont de A16 à A20 par exemple
For I = 1 To 5
R$ = Choose(I, "A16", "A17", "A18", "A19", "A20")
F$ = Sheets("Feuil1").Range(R$)
If F$ > "" Then
If Dir(F$) <> "" Then .Attachments.Add F$ Else MsgBox "Ce chemin\fichier est incorrect ou inexistant !?" & vbLf & F$, vbCritical, ""
End If
Next