Bonjour,
La petite macro suivante doit pouvoir résoudre le problème.
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 04/05/2004 par
'
For i = 1 To 256
If Cells(1, i) = "" Then
Cells(3, i) = ""
GoTo 1
Else
If Cells(2, i) = "" Then
Cells(3, i) = ""
GoTo 1
End If
End If
1
Next i
'
End Sub
A+