Code de répétition à simplifier?

Bonjour a tous,

J'ai un code en VBA sous excel que j'aimerais simplifié mais je ne sais pas comment à l'heure actuelle j'ai 20 lignes mais je peux en rajouter.

Ci-joint le code.

If Sheets("BD_Reperoire3D").Range("E2") <> "\" Then
Set Part = swApp.OpenDoc6(Sheets("BD_Reperoire3D").Range("E2"), 2, 2, "", longstatus, longwarnings) 'Caisson_A
End If
'-
If Sheets("BD_Reperoire3D").Range("E3") <> "\" Then
Set Part = swApp.OpenDoc6(Sheets("BD_Reperoire3D").Range("E3"), 2, 2, "", longstatus, longwarnings) 'Caisson_B
End If
'-
If Sheets("BD_Reperoire3D").Range("E4") <> "\" Then
Set Part = swApp.OpenDoc6(Sheets("BD_Reperoire3D").Range("E4"), 2, 2, "", longstatus, longwarnings) 'Caisson_C
End If
'-

Comment le simplifier?

Merci d'avance pour votre aide.

Bonjour

Derlig = Sheets("BD_Reperoire3D").Cells(Rows.Count, 5).End(xlUp).Row
For Each Cellule In Sheets("BD_Reperoire3D").Range("E2:E" & Derlig)
    If Cellule <> "\" Then
        Set Part = swApp.OpenDoc6(Cellule, 2, 2, "", longstatus, longwarnings)
    End If
Next

Merci