Bonjour,
Je voudrai savoir s'il est possible de supprimer seulement la partie barée d'une cellule? Pour l'instant je suis arrivé à supprimer une ligne si la cellule était totalement barrée à la'ide du code ci dessous:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
For i = 2 To 1500
    If Cells(i, 6).Font.Strikethrough = True Then
    Rows(i).Delete
    i = i - 1
    End If
     Next i