Fusionner deux code simple

Résolu
Bonjour,
Je voudrais savoir comment on fusionne ces deux programme :

Dim O As Worksheet
Dim R As Range
Dim COL As Integer
Dim LI As Integer

Set O = Worksheets("Feuil1")
Set R = O.Rows(1).Find("Vitesse", , xlValues, xlWhole)
If R Is Nothing Then Exit Sub
COL = R.Column


et

    Columns("C:C").Select
Selection.Cut Destination:=Columns("I:I")
Columns("I:I").Select


COL et C:C désigne la même colonne

Merci d'avance

1 réponse

  1. Modérateur
    Bonjour,

    Visiblement...... tu n'as que ça à changer:
    Columns(COL).Select
    

    1. Merci, ça fonctionne :D