Dim a As Long
For a = 86 To 2131
If Not IsEmpty(Cells(a, 4)) And Cells(a, 4) <> "nom_feuille" Then Cells(a, 3).Resize(, 3).ClearContents
If Not IsEmpty(Cells(a, 7)) And Cells(a, 7) <> "nom_feuille" Then Cells(a, 6).Resize(, 3).ClearContents
If Not IsEmpty(Cells(a, 10)) And Cells(a, 10) <> "nom_feuille" Then Cells(a, 9).Resize(, 3).ClearContents
If Not IsEmpty(Cells(a, 13)) And Cells(a, 13) <> "nom_feuille" Then Cells(a, 12).Resize(, 3).ClearContents
If Not IsEmpty(Cells(a, 17)) And Cells(a, 17) <> "nom_feuille" Then Cells(a, 16).Resize(, 3).ClearContents
If Not IsEmpty(Cells(a, 20)) And Cells(a, 20) <> "nom_feuille" Then Cells(a, 19).Resize(, 3).ClearContents
If Not IsEmpty(Cells(a, 23)) And Cells(a, 23) <> "nom_feuille" Then Cells(a, 22).Resize(, 3).ClearContents
If Not IsEmpty(Cells(a, 26)) And Cells(a, 26) <> "nom_feuille" Then Cells(a, 25).Resize(, 3).ClearContents
If Not IsEmpty(Cells(a, 30)) And Cells(a, 30) <> "nom_feuille" Then Cells(a, 29).Resize(, 3).ClearContents
If Not IsEmpty(Cells(a, 33)) And Cells(a, 33) <> "nom_feuille" Then Cells(a, 32).Resize(, 3).ClearContents
If Not IsEmpty(Cells(a, 36)) And Cells(a, 36) <> "nom_feuille" Then Cells(a, 35).Resize(, 3).ClearContents
If Not IsEmpty(Cells(a, 39)) And Cells(a, 39) <> "nom_feuille" Then Cells(a, 38).Resize(, 3).ClearContents
If Not IsEmpty(Cells(a, 43)) And Cells(a, 43) <> "nom_feuille" Then Cells(a, 42).Resize(, 3).ClearContents
If Not IsEmpty(Cells(a, 46)) And Cells(a, 46) <> "nom_feuille" Then Cells(a, 45).Resize(, 3).ClearContents
If Not IsEmpty(Cells(a, 49)) And Cells(a, 49) <> "nom_feuille" Then Cells(a, 48).Resize(, 3).ClearContents
If Not IsEmpty(Cells(a, 52)) And Cells(a, 52) <> "nom_feuille" Then Cells(a, 51).Resize(, 3).ClearContents
If Not IsEmpty(Cells(a, 56)) And Cells(a, 56) <> "nom_feuille" Then Cells(a, 55).Resize(, 3).ClearContents
If Not IsEmpty(Cells(a, 59)) And Cells(a, 59) <> "nom_feuille" Then Cells(a, 58).Resize(, 3).ClearContents
If Not IsEmpty(Cells(a, 62)) And Cells(a, 62) <> "nom_feuille" Then Cells(a, 61).Resize(, 3).ClearContents
If Not IsEmpty(Cells(a, 65)) And Cells(a, 65) <> "nom_feuille" Then Cells(a, 64).Resize(, 3).ClearContents
Next