c urgent

[taga]

bjr,
je suis débutant en programmation en vba. je serai heureux si vous m'aidez.
voilà, dans un classeur j'ai deux feuilles: Hist et Liss.
l'objectif c'est de chercher pour chaque ligne de la feuille Hist la première cellule NON Vide, d'avoir les coordonnées ou l'adresse de cette cellule ie:numéro de la colonne et le numèro de la ligne. sélctionner la cellule ayant les mêmes coordonnées dans la feuille Liss et les dix cellules suivantes pour les vider. les autres cellules de la ligne auront les même valeurs de la feuille hist.

Exemple: pour la première ligne de la feuille hist, la première cellule non vide est B1, donc les cellule b1 jusaqu'à b11 de la feuille liss deviendront vide et les autres cellules auront la même valeur que celle de la feuille hist.

NB: les séries enregistrées dans lignes de la feuille hist n'ont pas la même date du commencement.

Sub liss_moy()
Dim ligne, NumCol

' liss_moy Macro
'
Sheets("hist").Select
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
For ligne = 2 To 500
Range("E" & ligne).Select
Selection.End(xlToRight).Select
Selection.Activate
NumCol = ActiveCell.Rows.adresse
'Sheets("lissage_moyenne").Select
'ActiveSheet.Range("colonne" & "ligne").Activate
Worksheets("lissage_moyenne").Activate
Cells("colonne" & "ligne").Select
ActiveCell.FormulaR1C1 = "NA"
With ActiveCell.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
ActiveCell.Offset(0, 1).Activate 'c moi pour déplacer la cellule active'
ActiveCell.FormulaR1C1 = "NA"
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "Tahoma"
.ColorIndex = 15
End With
ActiveCell.Offset(0, 1).Activate 'c moi pour déplacer la cellule active'
ActiveCell.FormulaR1C1 = ""
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "Tahoma"
.FontStyle = "Normal"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 15
End With
ActiveCell.Offset(0, 1).Activate 'c moi pour déplacer la cellule active'
ActiveCell.FormulaR1C1 = ""
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "Tahoma"
.FontStyle = "Normal"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 15
End With
ActiveCell.Offset(0, 1).Activate 'c moi pour déplacer la cellule active'
ActiveCell.FormulaR1C1 = ""
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "Tahoma"
.FontStyle = "Normal"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 15
End With
ActiveCell.Offset(0, 1).Activate 'c moi pour déplacer la cellule active'
ActiveCell.FormulaR1C1 = ""
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "Tahoma"
.FontStyle = "Normal"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 15
End With
ActiveCell.Offset(0, 1).Activate 'c moi pour déplacer la cellule active'
ActiveCell.FormulaR1C1 = ""
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "Tahoma"
.FontStyle = "Normal"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 15
End With
ActiveCell.Offset(0, 1).Activate 'c moi pour déplacer la cellule active'
ActiveCell.FormulaR1C1 = ""
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "Tahoma"
.FontStyle = "Normal"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 15
End With
ActiveCell.Offset(0, 1).Activate 'c moi pour déplacer la cellule active'
ActiveCell.FormulaR1C1 = ""
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "Tahoma"
.FontStyle = "Normal"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 15
End With
ActiveCell.Offset(0, 1).Activate 'c moi pour déplacer la cellule active'
ActiveCell.FormulaR1C1 = ""
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "Tahoma"
.FontStyle = "Normal"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 15
End With
ActiveCell.Offset(0, 1).Activate 'c moi pour déplacer la cellule active'
ActiveCell.FormulaR1C1 = ""
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "Tahoma"
.FontStyle = "Normal"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 15
End With
Next

End Sub