Essaie donc le code suivant:
Sub enleveblanc()
For Each c In Selection
Select Case c.Row:
Case 1:
Case Else:
If (IsEmpty(c) = True And IsEmpty(c.Offset(-1, 0)) = False) Then
c.Value = c.Offset(-1, 0).Value
End If
End Select
Next
End Sub
FRancoise
:side: