Bonjour , voici un code qui échange le contenu de 2 cellules :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub echange(ByVal Cel1 As Long, ByVal Cel2 As Long)
dim val as double
val = cells(cel1,col).value
cells(cel1,col).value = cells(cel2,col).value
cells(cel2,col).value = val
End Sub
J'aimerais savoir faire un échange pour 2 lignes entières , mes essais avec range(cells(...)) n'ont pas donner de bons résultats mais c'etait dans le bon chemin , quelqu'un aurait une idée ?

merci