Option Explicit
Sub CopierAF7()
Dim DerniereColonne As Long
Dim ColStr As String
With Sheets("SUIVI PERFORMANCE FOURNISSEURS")
.Activate
DerniereColonne = .Range("B3").End(xlToRight).Column
If .Range("B3") = "" Then DerniereColonne = 1
If .Range("C3") = "" Then DerniereColonne = 2
If DerniereColonne >= 27 Then
MsgBox "Les semaines 51,52 sont déjà remplies", vbExclamation, "Année terminée!"
End
End If
ColStr = Split(Columns(DerniereColonne + 1).Address(ColumnAbsolute:=False), ":")(1) & 3
.Range(ColStr) = Sheets("Classement fournisseurs").Range("AF7").Value
End With
End Sub
Sub CopierAF16()
Dim DerniereColonne As Long
Dim ColStr As String
With Sheets("SUIVI PERFORMANCE FOURNISSEURS")
.Activate
DerniereColonne = .Range("B23").End(xlToRight).Column
If .Range("B23") = "" Then DerniereColonne = 1
If .Range("C23") = "" Then DerniereColonne = 2
If DerniereColonne >= 27 Then
MsgBox "La colonne est déjà remplie"
End
End If
ColStr = Split(Columns(DerniereColonne + 1).Address(ColumnAbsolute:=False), ":")(1) & 23
.Range(ColStr) = Sheets("Classement fournisseurs").Range("AF16").Value
End With
End Sub