Bonjour à tous,

J'ai fais une macros pour effacer des cellules quand une case est vide dans ma plage F4:F27.
J'aurais voulu savoir s'il était possible de simplifier ?
De plus, est il possible de le rendre plus rapide dans son exécution ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Effacer()
    Dim i As Integer
 
    For i = 4 To 27
        If Cells(i, 6).Value = "" Then
            Cells(i, 6).Offset(0, 4).ClearContents
            Cells(i, 6).Offset(0, 5).ClearContents
            Cells(i, 6).Offset(0, 6).ClearContents
            Cells(i, 6).Offset(0, 7).ClearContents
        End If
    Next i
 
End Sub

Merci pour votre aide et bonne soirée