Sub copie_smileys()


If B3 = B2 Then
Range("C1").Select
Selection.Copy
Range("B4").Select
Selection.pastespecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=True, Transpose:=True



If B3 > B2 Then
Range("E1").Select
Selection.Copy
Range("B4").Select
Selection.pastespecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=True, Transpose:=True



If B3 < B2 Then
Range("A1").Select
Selection.Copy
Range("B4").Select
Selection.pastespecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=True, Transpose:=True
End If
End If
End If



End Sub


merci de ton conseil mais je veux automatiser mon tableur et là il ne me reste plus qu'a essayer de trouver une boucle pour qu'il passe toute la ligne B en revue tant qu'elle contient des valeures...
peut etre n'ais je pas été assez clair lors de l'exposition de mon problème merci de ton aide car je vais incrémenter la mise en forme de la cellule en windgings...
;)

si tu as une idée pour la boucle je te suis reconnaissant...